From 11281034b72ad4335290d46a979dae8ce82c289e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 2 Jun 1993 19:10:31 +0000 Subject: [PATCH] (frame-initialize): Delete geometry parms from initial-frame-alist. --- lisp/frame.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/frame.el b/lisp/frame.el index 8faa376569f..a255c586401 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -98,6 +98,16 @@ These supercede the values given in `default-frame-alist'.") (setq default-minibuffer-frame (setq frame-initial-frame (new-frame initial-frame-alist))) + ;; Delete any specifications for window geometry parameters + ;; so that we won't reapply them in frame-notice-user-settings. + ;; It would be wrong to reapply them then, + ;; because that would override explicit user resizing. + (setq initial-frame-alist + (delq (assq 'height initial-frame-alist) + (delq (assq 'width initial-frame-alist) + (delq (assq 'left initial-frame-alist) + (delq (assq 'top initial-frame-alist) + initial-frame-alist))))) ;; Handle `reverse' as a parameter. (if (cdr (or (assq 'reverse initial-frame-alist) (assq 'reverse default-frame-alist) -- 2.30.2